home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Editor 2.0 / Edit.Res / Edit.Res.rsrc / TEXT_128_Basic-Programm.txt < prev    next >
Encoding:
Text File  |  1994-06-07  |  5.6 KB  |  193 lines
  1. '************************************************************
  2. '                      ‚Ä¢ CONFIGURATION ‚Ä¢ 
  3. '************************************************************
  4. '
  5. '            Default Variable Type:Integer
  6. '            Convert to Upper Case:Yes
  7. '        Space Req.After Key Words:Yes
  8. '                     Array Base 1:No
  9. '
  10. '************************************************************
  11. '                    ‚Ä¢ SET UP VARIABLES ‚Ä¢ 
  12. '************************************************************
  13. WINDOW OFF:COORDINATE WINDOW:DEF MOUSE=-1:WIDTH -2
  14. DIM T,L,B,R,MY,MX'                REQUIRED FOR TOOL BOX CALLS
  15. '------------------------------------------------------------
  16. GOSUB "SET MENU"
  17. WND=1:GOSUB"BUILD WINDOW"
  18. GOTO"EVENT QUEUE"
  19. '************************************************************
  20. '                        ‚Ä¢ THE QUEUE ‚Ä¢ 
  21. '************************************************************
  22. "EVENT QUEUE"
  23. ON DIALOG GOSUB "HANDLE DIALOG":DIALOG ON
  24. ON MENU   GOSUB "HANDLE MENU"  :MENU   ON
  25. ON BREAK  GOSUB "HANDLE BREAK" :BREAK  ON
  26. ON MOUSE  GOSUB "HANDLE MOUSE" :MOUSE  ON
  27. :
  28. "LOOP"
  29. GOTO"LOOP"
  30. :
  31. DIALOG OFF:BREAK OFF:MOUSE OFF:MENU OFF
  32. '************************************************************
  33. '                     ‚Ä¢ DIALOG ROUTINES ‚Ä¢ 
  34. '************************************************************
  35. "HANDLE DIALOG"
  36. :
  37. ACT=DIALOG(0):REF=DIALOG(ACT)
  38. :
  39. IF ACT=3 THEN WINDOW REF:RETURN
  40. IF ACT=4 THEN GOSUB"CAPTURE":WINDOW CLOSE REF:RETURN
  41. IF ACT=5 THEN "FORMAT WINDOW"
  42. IF ACT=11 THEN EDIT FIELD REF,""
  43. :
  44. LONG IF WINDOW(0)=1
  45. END IF
  46. :
  47. RETURN
  48. '************************************************************
  49. '                      ‚Ä¢ MENU ROUTINES ‚Ä¢ 
  50. '************************************************************
  51. "HANDLE MENU"
  52. :
  53. MENUID=MENU(0):ITEMID=MENU(1):MENU
  54. :
  55. IF MENUID=255 THEN "INFO"
  56. ON MENUID GOTO "DATEI","ARBEIT","FONT","GR√∂√üE"
  57. "INFO" RETURN
  58. '------------------------------------------------------------
  59. "DATEI"
  60. ON ITEMID GOTO "NEU","√ñFFNEN","SCHLIE√üEN","NO OP","SICHERN","SICHERN","NO OP","FORMAT","DRUCKEN","NO OP","ENDE"
  61. "NEU" RETURN
  62. "√ñFFNEN" RETURN
  63. "SCHLIE√üEN" RETURN
  64. "SICHERN" RETURN
  65. "SICHERN" RETURN
  66. "FORMAT" RETURN
  67. "DRUCKEN" RETURN
  68. "ENDE" RETURN
  69. '------------------------------------------------------------
  70. "ARBEIT"
  71. ON ITEMID GOTO "ZUR√ºCK","NO OP","SCHNEIDEN","KOPIEREN","EINF√ºGEN","L√∂SCHEN","NO OP","AUSWAHL"
  72. "ZUR√ºCK" RETURN
  73. "SCHNEIDEN" RETURN
  74. "KOPIEREN" RETURN
  75. "EINF√ºGEN" RETURN
  76. "L√∂SCHEN" RETURN
  77. "AUSWAHL" RETURN
  78. '------------------------------------------------------------
  79. "GRößE"
  80. ON ITEMID GOTO "  9 PUNKT","10 PUNKT","12 PUNKT","14 PUNKT","18 PUNKT","20 PUNKT","24 PUNKT"
  81. "  9 PUNKT" RETURN
  82. "10 PUNKT" RETURN
  83. "12 PUNKT" RETURN
  84. "14 PUNKT" RETURN
  85. "18 PUNKT" RETURN
  86. "20 PUNKT" RETURN
  87. "24 PUNKT" RETURN
  88. "NO OP" RETURN
  89. '************************************************************
  90. '                      ‚Ä¢ BREAK ROUTINE ‚Ä¢ 
  91. '************************************************************
  92. "HANDLE BREAK"
  93. END
  94. '************************************************************
  95. '                     ‚Ä¢ MOUSE ROUTINES ‚Ä¢ 
  96. '************************************************************
  97. "HANDLE MOUSE"
  98. :
  99. MACT=MOUSE(0):MX=MOUSE(1):MY=MOUSE(2)
  100. :
  101. RETURN
  102. '************************************************************
  103. '                     ‚Ä¢ BUILD THE MENU ‚Ä¢ 
  104. '************************************************************
  105. "SET MENU"
  106. APPLE MENU "Info"
  107. MENU 1,0,1,"Datei"
  108. MENU 1,1,1,"Neu/N"
  109. MENU 1,2,1,"√ñffnen/O"
  110. MENU 1,3,1,"Schlie√üen/W"
  111. MENU 1,4,0,"-"
  112. MENU 1,5,1,"Sichern/S"
  113. MENU 1,6,1,"Sichern"
  114. MENU 1,7,0,"-"
  115. MENU 1,8,1,"Format/√ü"
  116. MENU 1,9,1,"Drucken/D"
  117. MENU 1,10,0,"-"
  118. MENU 1,11,1,"Ende/Q"
  119. MENU 2,0,1,"Arbeit"
  120. MENU 2,1,1,"Zur√ºck/Z"
  121. MENU 2,2,0,"-"
  122. MENU 2,3,1,"Schneiden/X"
  123. MENU 2,4,1,"Kopieren/C"
  124. MENU 2,5,1,"Einf√ºgen/V"
  125. MENU 2,6,1,"L√∂schen/L"
  126. MENU 2,7,0,"-"
  127. MENU 2,8,1,"Auswahl/A"
  128. MENU 3,0,1,"Font":DEFSTR LONG
  129. FONTHANDLE&=FN GETMHANDLE(3)
  130. CALL ADDRESMENU (FONTHANDLE&,CVI("FONT")):DEFSTR WORD
  131. MENU 4,0,1,"Gr√∂√üe"
  132. MENU 4,1,1,"  9 Punkt"
  133. MENU 4,2,1,"10 Punkt"
  134. MENU 4,3,1,"12 Punkt"
  135. MENU 4,4,1,"14 Punkt"
  136. MENU 4,5,1,"18 Punkt"
  137. MENU 4,6,1,"20 Punkt"
  138. MENU 4,7,1,"24 Punkt"
  139. RETURN
  140. '************************************************************
  141. '             ‚Ä¢ SUBROUTINES FOR THE FONT MENUS ‚Ä¢ 
  142. '************************************************************
  143. "FONT"
  144. FOR X=1 TO FN COUNTMITEMS(FONTHANDLE&):MENU 3,X,1 : NEXT
  145. CALL GETITEM(FONTHANDLE&,ITEMID,FONTNAME$)
  146. CALL GETFNUM(FONTNAME$,FONTNUMBER)
  147. MENU 3,ITEMID,2
  148. '************************************************************
  149. '                     ‚Ä¢ WINDOW ROUTINES ‚Ä¢ 
  150. '************************************************************
  151. "BUILD WINDOW"
  152. IF WND=1 THEN WINDOW 1,"",(3,40)-(636,860),1
  153. GOSUB"BUILD EDITS":GOSUB"FILL EDITS"
  154. RETURN
  155. '************************************************************
  156. '              ‚Ä¢ PUT GRAPHICS & TEXT IN WINDOW ‚Ä¢ 
  157. '************************************************************
  158. "FORMAT WINDOW"
  159. CALL PENNORMAL
  160. :
  161. LONG IF WINDOW(0)=1
  162. END IF
  163. :
  164. CALL PENNORMAL:RETURN
  165. '************************************************************
  166. '             ‚Ä¢ CREATE EDIT FIELDS AND BUTTONS ‚Ä¢ 
  167. '************************************************************
  168. "BUILD EDITS"
  169. TEXT ,,0,0
  170. :
  171. LONG IF WINDOW(0)=1
  172. END IF
  173. :
  174. RETURN
  175. '************************************************************
  176. '            ‚Ä¢ FILL EDIT FIELDS AND SET BUTTONS ‚Ä¢ 
  177. '************************************************************
  178. "FILL EDITS"
  179. :
  180. LONG IF WINDOW(0)=1
  181. END IF
  182. :
  183. RETURN
  184. '************************************************************
  185. '        ‚Ä¢ CAPTURE EDIT FIELD STRINGS & READ BUTTONS ‚Ä¢ 
  186. '************************************************************
  187. "CAPTURE"
  188. :
  189. LONG IF WINDOW(0)=1
  190. END IF
  191. :
  192. RETURN
  193.